program ib;

uses
  Windows,
  Forms,
  Unit1 in 'Unit1.pas' { Form1 } ,
  ucore in 'ucore.pas';
{$R *.res}

var
  h: HWND;

begin
{$IFDEF DEBUG}
  ReportMemoryLeaksOnShutdown := True;
{$ENDIF}
  h := FindWindow(APP_CLASS, nil);
  if h = 0 then begin
    Application.Initialize;
    Application.MainFormOnTaskbar := False;
    Application.ShowMainForm := False;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;

end.
